home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / lib / perl / 5.10.0 / features.ph < prev    next >
Text File  |  2008-07-24  |  12KB  |  186 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_FEATURES_H)) {
  6.     eval 'sub _FEATURES_H () {1;}' unless defined(&_FEATURES_H);
  7.     undef(&__USE_ISOC99) if defined(&__USE_ISOC99);
  8.     undef(&__USE_ISOC95) if defined(&__USE_ISOC95);
  9.     undef(&__USE_POSIX) if defined(&__USE_POSIX);
  10.     undef(&__USE_POSIX2) if defined(&__USE_POSIX2);
  11.     undef(&__USE_POSIX199309) if defined(&__USE_POSIX199309);
  12.     undef(&__USE_POSIX199506) if defined(&__USE_POSIX199506);
  13.     undef(&__USE_XOPEN) if defined(&__USE_XOPEN);
  14.     undef(&__USE_XOPEN_EXTENDED) if defined(&__USE_XOPEN_EXTENDED);
  15.     undef(&__USE_UNIX98) if defined(&__USE_UNIX98);
  16.     undef(&__USE_XOPEN2K) if defined(&__USE_XOPEN2K);
  17.     undef(&__USE_LARGEFILE) if defined(&__USE_LARGEFILE);
  18.     undef(&__USE_LARGEFILE64) if defined(&__USE_LARGEFILE64);
  19.     undef(&__USE_FILE_OFFSET64) if defined(&__USE_FILE_OFFSET64);
  20.     undef(&__USE_BSD) if defined(&__USE_BSD);
  21.     undef(&__USE_SVID) if defined(&__USE_SVID);
  22.     undef(&__USE_MISC) if defined(&__USE_MISC);
  23.     undef(&__USE_ATFILE) if defined(&__USE_ATFILE);
  24.     undef(&__USE_GNU) if defined(&__USE_GNU);
  25.     undef(&__USE_REENTRANT) if defined(&__USE_REENTRANT);
  26.     undef(&__USE_FORTIFY_LEVEL) if defined(&__USE_FORTIFY_LEVEL);
  27.     undef(&__FAVOR_BSD) if defined(&__FAVOR_BSD);
  28.     undef(&__KERNEL_STRICT_NAMES) if defined(&__KERNEL_STRICT_NAMES);
  29.     unless(defined(&_LOOSE_KERNEL_NAMES)) {
  30.     eval 'sub __KERNEL_STRICT_NAMES () {1;}' unless defined(&__KERNEL_STRICT_NAMES);
  31.     }
  32.     eval 'sub __USE_ANSI () {1;}' unless defined(&__USE_ANSI);
  33.     if(defined (defined(&__GNUC__) ? &__GNUC__ : undef)  && defined (defined(&__GNUC_MINOR__) ? &__GNUC_MINOR__ : undef)) {
  34.     eval 'sub __GNUC_PREREQ {
  35.         my($maj, $min) = @_;
  36.             eval q((( &__GNUC__ << 16) +  &__GNUC_MINOR__ >= (($maj) << 16) + ($min)));
  37.     }' unless defined(&__GNUC_PREREQ);
  38.     } else {
  39.     eval 'sub __GNUC_PREREQ {
  40.         my($maj, $min) = @_;
  41.             eval q(0);
  42.     }' unless defined(&__GNUC_PREREQ);
  43.     }
  44.     if(defined (defined(&_BSD_SOURCE) ? &_BSD_SOURCE : undef)  && !(defined (defined(&_POSIX_SOURCE) ? &_POSIX_SOURCE : undef) || defined (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) || defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) || defined (defined(&_XOPEN_SOURCE_EXTENDED) ? &_XOPEN_SOURCE_EXTENDED : undef) || defined (defined(&_GNU_SOURCE) ? &_GNU_SOURCE : undef) || defined (defined(&_SVID_SOURCE) ? &_SVID_SOURCE : undef))) {
  45.     eval 'sub __FAVOR_BSD () {1;}' unless defined(&__FAVOR_BSD);
  46.     }
  47.     if(defined(&_GNU_SOURCE)) {
  48.     undef(&_ISOC99_SOURCE) if defined(&_ISOC99_SOURCE);
  49.     eval 'sub _ISOC99_SOURCE () {1;}' unless defined(&_ISOC99_SOURCE);
  50.     undef(&_POSIX_SOURCE) if defined(&_POSIX_SOURCE);
  51.     eval 'sub _POSIX_SOURCE () {1;}' unless defined(&_POSIX_SOURCE);
  52.     undef(&_POSIX_C_SOURCE) if defined(&_POSIX_C_SOURCE);
  53.     eval 'sub _POSIX_C_SOURCE () {200112;}' unless defined(&_POSIX_C_SOURCE);
  54.     undef(&_XOPEN_SOURCE) if defined(&_XOPEN_SOURCE);
  55.     eval 'sub _XOPEN_SOURCE () {600;}' unless defined(&_XOPEN_SOURCE);
  56.     undef(&_XOPEN_SOURCE_EXTENDED) if defined(&_XOPEN_SOURCE_EXTENDED);
  57.     eval 'sub _XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&_XOPEN_SOURCE_EXTENDED);
  58.     undef(&_LARGEFILE64_SOURCE) if defined(&_LARGEFILE64_SOURCE);
  59.     eval 'sub _LARGEFILE64_SOURCE () {1;}' unless defined(&_LARGEFILE64_SOURCE);
  60.     undef(&_BSD_SOURCE) if defined(&_BSD_SOURCE);
  61.     eval 'sub _BSD_SOURCE () {1;}' unless defined(&_BSD_SOURCE);
  62.     undef(&_SVID_SOURCE) if defined(&_SVID_SOURCE);
  63.     eval 'sub _SVID_SOURCE () {1;}' unless defined(&_SVID_SOURCE);
  64.     undef(&_ATFILE_SOURCE) if defined(&_ATFILE_SOURCE);
  65.     eval 'sub _ATFILE_SOURCE () {1;}' unless defined(&_ATFILE_SOURCE);
  66.     }
  67.     if((!defined (defined(&__STRICT_ANSI__) ? &__STRICT_ANSI__ : undef)  && !defined (defined(&_ISOC99_SOURCE) ? &_ISOC99_SOURCE : undef)  && !defined (defined(&_POSIX_SOURCE) ? &_POSIX_SOURCE : undef)  && !defined (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef)  && !defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef)  && !defined (defined(&_XOPEN_SOURCE_EXTENDED) ? &_XOPEN_SOURCE_EXTENDED : undef)  && !defined (defined(&_BSD_SOURCE) ? &_BSD_SOURCE : undef)  && !defined (defined(&_SVID_SOURCE) ? &_SVID_SOURCE : undef))) {
  68.     eval 'sub _BSD_SOURCE () {1;}' unless defined(&_BSD_SOURCE);
  69.     eval 'sub _SVID_SOURCE () {1;}' unless defined(&_SVID_SOURCE);
  70.     }
  71.     if((defined (defined(&_ISOC99_SOURCE) ? &_ISOC99_SOURCE : undef) || defined (defined(&_ISOC9X_SOURCE) ? &_ISOC9X_SOURCE : undef) || (defined (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef)  && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef) >= 199901))) {
  72.     eval 'sub __USE_ISOC99 () {1;}' unless defined(&__USE_ISOC99);
  73.     }
  74.     if((defined (defined(&_ISOC99_SOURCE) ? &_ISOC99_SOURCE : undef) || defined (defined(&_ISOC9X_SOURCE) ? &_ISOC9X_SOURCE : undef) || (defined (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef)  && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef) >= 199409))) {
  75.     eval 'sub __USE_ISOC95 () {1;}' unless defined(&__USE_ISOC95);
  76.     }
  77.     if(((!defined (defined(&__STRICT_ANSI__) ? &__STRICT_ANSI__ : undef) || ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) >= 500)  && !defined (defined(&_POSIX_SOURCE) ? &_POSIX_SOURCE : undef)  && !defined (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef))) {
  78.     eval 'sub _POSIX_SOURCE () {1;}' unless defined(&_POSIX_SOURCE);
  79.     if(defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef)  && ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) < 500) {
  80.         eval 'sub _POSIX_C_SOURCE () {2;}' unless defined(&_POSIX_C_SOURCE);
  81.     }
  82.  elsif(defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef)  && ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) < 600) {
  83.         eval 'sub _POSIX_C_SOURCE () {199506;}' unless defined(&_POSIX_C_SOURCE);
  84.     } else {
  85.         eval 'sub _POSIX_C_SOURCE () {200112;}' unless defined(&_POSIX_C_SOURCE);
  86.     }
  87.     }
  88.     if(defined (defined(&_POSIX_SOURCE) ? &_POSIX_SOURCE : undef) || (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) >= 1|| defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef)) {
  89.     eval 'sub __USE_POSIX () {1;}' unless defined(&__USE_POSIX);
  90.     }
  91.     if(defined (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef)  && (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) >= 2|| defined (defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef)) {
  92.     eval 'sub __USE_POSIX2 () {1;}' unless defined(&__USE_POSIX2);
  93.     }
  94.     if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) - 0) >= 199309) {
  95.     eval 'sub __USE_POSIX199309 () {1;}' unless defined(&__USE_POSIX199309);
  96.     }
  97.     if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) - 0) >= 199506) {
  98.     eval 'sub __USE_POSIX199506 () {1;}' unless defined(&__USE_POSIX199506);
  99.     }
  100.     if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) - 0) >= 200112) {
  101.     eval 'sub __USE_XOPEN2K () {1;}' unless defined(&__USE_XOPEN2K);
  102.     }
  103.     if(defined(&_XOPEN_SOURCE)) {
  104.     eval 'sub __USE_XOPEN () {1;}' unless defined(&__USE_XOPEN);
  105.     if(((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) >= 500) {
  106.         eval 'sub __USE_XOPEN_EXTENDED () {1;}' unless defined(&__USE_XOPEN_EXTENDED);
  107.         eval 'sub __USE_UNIX98 () {1;}' unless defined(&__USE_UNIX98);
  108.         undef(&_LARGEFILE_SOURCE) if defined(&_LARGEFILE_SOURCE);
  109.         eval 'sub _LARGEFILE_SOURCE () {1;}' unless defined(&_LARGEFILE_SOURCE);
  110.         if(((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) >= 600) {
  111.         eval 'sub __USE_XOPEN2K () {1;}' unless defined(&__USE_XOPEN2K);
  112.         undef(&__USE_ISOC99) if defined(&__USE_ISOC99);
  113.         eval 'sub __USE_ISOC99 () {1;}' unless defined(&__USE_ISOC99);
  114.         }
  115.     } else {
  116.         if(defined(&_XOPEN_SOURCE_EXTENDED)) {
  117.         eval 'sub __USE_XOPEN_EXTENDED () {1;}' unless defined(&__USE_XOPEN_EXTENDED);
  118.         }
  119.     }
  120.     }
  121.     if(defined(&_LARGEFILE_SOURCE)) {
  122.     eval 'sub __USE_LARGEFILE () {1;}' unless defined(&__USE_LARGEFILE);
  123.     }
  124.     if(defined(&_LARGEFILE64_SOURCE)) {
  125.     eval 'sub __USE_LARGEFILE64 () {1;}' unless defined(&__USE_LARGEFILE64);
  126.     }
  127.     if(defined (defined(&_FILE_OFFSET_BITS) ? &_FILE_OFFSET_BITS : undef)  && (defined(&_FILE_OFFSET_BITS) ? &_FILE_OFFSET_BITS : undef) == 64) {
  128.     eval 'sub __USE_FILE_OFFSET64 () {1;}' unless defined(&__USE_FILE_OFFSET64);
  129.     }
  130.     if(defined (defined(&_BSD_SOURCE) ? &_BSD_SOURCE : undef) || defined (defined(&_SVID_SOURCE) ? &_SVID_SOURCE : undef)) {
  131.     eval 'sub __USE_MISC () {1;}' unless defined(&__USE_MISC);
  132.     }
  133.     if(defined(&_BSD_SOURCE)) {
  134.     eval 'sub __USE_BSD () {1;}' unless defined(&__USE_BSD);
  135.     }
  136.     if(defined(&_SVID_SOURCE)) {
  137.     eval 'sub __USE_SVID () {1;}' unless defined(&__USE_SVID);
  138.     }
  139.     if(defined(&_ATFILE_SOURCE)) {
  140.     eval 'sub __USE_ATFILE () {1;}' unless defined(&__USE_ATFILE);
  141.     }
  142.     if(defined(&_GNU_SOURCE)) {
  143.     eval 'sub __USE_GNU () {1;}' unless defined(&__USE_GNU);
  144.     }
  145.     if(defined (defined(&_REENTRANT) ? &_REENTRANT : undef) || defined (defined(&_THREAD_SAFE) ? &_THREAD_SAFE : undef)) {
  146.     eval 'sub __USE_REENTRANT () {1;}' unless defined(&__USE_REENTRANT);
  147.     }
  148.     if(defined (defined(&_FORTIFY_SOURCE) ? &_FORTIFY_SOURCE : undef)  && (defined(&_FORTIFY_SOURCE) ? &_FORTIFY_SOURCE : undef) > 0 &&  &__GNUC_PREREQ (4, 1)  && defined (defined(&__OPTIMIZE__) ? &__OPTIMIZE__ : undef)  && (defined(&__OPTIMIZE__) ? &__OPTIMIZE__ : undef) > 0) {
  149.     if((defined(&_FORTIFY_SOURCE) ? &_FORTIFY_SOURCE : undef) > 1) {
  150.         eval 'sub __USE_FORTIFY_LEVEL () {2;}' unless defined(&__USE_FORTIFY_LEVEL);
  151.     } else {
  152.         eval 'sub __USE_FORTIFY_LEVEL () {1;}' unless defined(&__USE_FORTIFY_LEVEL);
  153.     }
  154.     } else {
  155.     eval 'sub __USE_FORTIFY_LEVEL () {0;}' unless defined(&__USE_FORTIFY_LEVEL);
  156.     }
  157.     eval 'sub __STDC_IEC_559__ () {1;}' unless defined(&__STDC_IEC_559__);
  158.     eval 'sub __STDC_IEC_559_COMPLEX__ () {1;}' unless defined(&__STDC_IEC_559_COMPLEX__);
  159.     eval 'sub __STDC_ISO_10646__ () {200009;}' unless defined(&__STDC_ISO_10646__);
  160.     undef(&__GNU_LIBRARY__) if defined(&__GNU_LIBRARY__);
  161.     eval 'sub __GNU_LIBRARY__ () {6;}' unless defined(&__GNU_LIBRARY__);
  162.     eval 'sub __GLIBC__ () {2;}' unless defined(&__GLIBC__);
  163.     eval 'sub __GLIBC_MINOR__ () {8;}' unless defined(&__GLIBC_MINOR__);
  164.     eval 'sub __GLIBC_PREREQ {
  165.         my($maj, $min) = @_;
  166.         eval q((( &__GLIBC__ << 16) +  &__GLIBC_MINOR__ >= (($maj) << 16) + ($min)));
  167.     }' unless defined(&__GLIBC_PREREQ);
  168.     if(defined (defined(&__GNUC__) ? &__GNUC__ : undef) || (defined (defined(&__PGI) ? &__PGI : undef)  && defined (defined(&__i386__) ? &__i386__ : undef) ) || (defined (defined(&__INTEL_COMPILER) ? &__INTEL_COMPILER : undef)  && (defined (defined(&__i386__) ? &__i386__ : undef) || defined (defined(&__ia64__) ? &__ia64__ : undef))) || (defined (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef)  && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef) >= 199901)) {
  169.     eval 'sub __GLIBC_HAVE_LONG_LONG () {1;}' unless defined(&__GLIBC_HAVE_LONG_LONG);
  170.     }
  171.     unless(defined(&__ASSEMBLER__)) {
  172.     unless(defined(&_SYS_CDEFS_H)) {
  173.         require 'sys/cdefs.ph';
  174.     }
  175.     if(defined (defined(&__USE_FILE_OFFSET64) ? &__USE_FILE_OFFSET64 : undef)  && !defined (defined(&__REDIRECT) ? &__REDIRECT : undef)) {
  176.         eval 'sub __USE_LARGEFILE () {1;}' unless defined(&__USE_LARGEFILE);
  177.         eval 'sub __USE_LARGEFILE64 () {1;}' unless defined(&__USE_LARGEFILE64);
  178.     }
  179.     }
  180.     if( &__GNUC_PREREQ (2, 7)  && defined (defined(&__OPTIMIZE__) ? &__OPTIMIZE__ : undef)  && !defined (defined(&__OPTIMIZE_SIZE__) ? &__OPTIMIZE_SIZE__ : undef)  && !defined (defined(&__NO_INLINE__) ? &__NO_INLINE__ : undef)  && defined (defined(&__extern_inline) ? &__extern_inline : undef)) {
  181.     eval 'sub __USE_EXTERN_INLINES () {1;}' unless defined(&__USE_EXTERN_INLINES);
  182.     }
  183.     require 'gnu/stubs.ph';
  184. }
  185. 1;
  186.